rm(list=ls(all=TRUE))
#
#
library(MASS)
library(foreign)
library(basicspace)
#
setwd("/Users/ssaiegh/Mac/Representation Gap/Paper PA")
#
source("big_blackbox_transpose.R")
data <- read.dta("chile.dta")
attach(data,warn.conflicts = FALSE)
#
T <- cbind(self,pinera,pdc,ppd,rn,udi,ps)
#
mode(T) <- "double"
colnames(T) <- c("SELF","PINERA","PDC","PPD","RN","UDI","PS")
#
#
result <-aldmck(T,polarity=7,respondent=1,missing=c(95,96,97,98,99),verbose=F)
#
